From d0f95c23fe8bf0f6e42d5bfa7e530b303fb6d2a9 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Thu, 23 Aug 2007 18:41:01 +0000 Subject: [PATCH] (locate-get-file-positions): Use `line-beginning-position' and `line-end-position'. --- lisp/locate.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/lisp/locate.el b/lisp/locate.el index 95060d36197..bc2dce954da 100644 --- a/lisp/locate.el +++ b/lisp/locate.el @@ -406,14 +406,10 @@ there is no file name on the current line, the return value is meaningless. You can check whether the current line contains a file listed by the locate program, using the function `locate-main-listing-line-p'." - (save-excursion - (end-of-line) - (let ((eol (point))) - (beginning-of-line) - - ;; Assumes names end at the end of the line - (forward-char locate-filename-indentation) - (list (point) eol)))) + (list (+ locate-filename-indentation + (line-beginning-position)) + ;; Assume names end at the end of the line. + (line-end-position))) ;; From SQL-mode (defun locate-current-line-number () -- 2.30.2